home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0287.arc / SOUNDS.C < prev    next >
Text File  |  1986-12-15  |  984b  |  70 lines
  1. /* 
  2.  *    sounds -- make various sounds on demand 
  3.  */ 
  4. #include <stdio.h> 
  5. #include <conio.h> 
  6. #include <math.h> 
  7.  
  8. #define ESC    27 
  9.  
  10. extern void sound(unsigned int, float); 
  11.  
  12. main() 
  13. { 
  14.     int ch; 
  15.  
  16.     fprintf(stderr, "1=warble 2=error 3=confirm 4=warn\n"); 
  17.     fprintf(stderr, "Esc=quit\n"); 
  18.     while ((ch = getch()) != ESC) 
  19.         switch (ch) { 
  20.         case '1': 
  21.             warble(); 
  22.             break; 
  23.         case '2': 
  24.             error(); 
  25.             break; 
  26.         case '3': 
  27.             confirm(); 
  28.             break; 
  29.         case '4': 
  30.             warn(); 
  31.             break; 
  32.         } 
  33.     exit(0); 
  34. } 
  35. #define CYCLES    3 
  36. #define LOTONE    600 
  37. #define HITONE    1200 
  38. #define PERIOD    0.1 
  39.  
  40. warble() 
  41. { 
  42.     int i; 
  43.  
  44.     for (i = 0; i < 2 * CYCLES; ++i) 
  45.         if (i % 2) 
  46.             sound(LOTONE, PERIOD); 
  47.         else 
  48.             sound(HITONE, PERIOD); 
  49. } 
  50. error() 
  51. { 
  52.     float d = 0.1; 
  53.  
  54.     sound(440, d); 
  55.     sound(220, d); 
  56. } 
  57. confirm() 
  58. { 
  59.     float d = 0.1; 
  60.  
  61.     sound(440, d); 
  62.     sound(880, d); 
  63. } 
  64. warn() 
  65. { 
  66.     float d = 0.2; 
  67.  
  68.     sound(100, d); 
  69. } 
  70.